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MODULE LNK_PSCTSERINS (IDENT='V04-000" 
ADDRESSING_MODE (EXTERNAL=GENERAL, 
' NONE XTERNAL=LONG. RELATIVE) 
= 


BEGIN 


‘ 
SWRA RARER ARERR RARER AAAAAAARERAAE EAA EAA HAART AA ARATE AAAAAAAAEARAEAEEE 


‘ee 
'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


® 
* 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ® 
't ALL RIGHTS RESERVED. * 
: ® 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH E F SUCH LICENSE AND WITH THE * 

tt INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF TH * 
!t TRANSFERRED. * 
: ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. ® 
® 

® 

* 

w 

® 

* 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
SRR eRR AREER ARAAAAAAAAAAAAAAAAAAAAEAAA RAAT AAA AAA ARERR EEEE 


+ 
MODULE: LNK_PSCTSERINS 
FACILITY: LINKER 
ABSTRACT: SEARCH AND INSERT ROUTINES FOR P-SECTIONS 
HISTORY: 
VERSION: X01.00 
AUTHOR: T.J. PORTER 16-MAR-77 


MODIFIED BY: 
v03-005 BLS0111 Benn Schreiber 21-Nov-1981 
Ignore deleted global psects 
v03-004 8LS0100 Benn Schreiber — 7-Nov~1981 
Don't zero name field on allocation 


LNK_PSCTSERINS 
042006 


; 


nah 3 8 a 
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iSo$ee71986 QOHRRE YMGLE 
v03-003 94 $0035 Benn Schreiber 13-Jan-1981 
K psects 


v03-002 BLS0025 Benn Schreiber c8onovel 960 
Add pointer from psect descriptor to cluster descriptor. 


v03-001 BLS0007 Benn Schreiber, 3-Jun-1980 
Convert to MDL data structures 


ATAKER  SRETLAEPSCTOL 68251 


Page as 


| 3 
— 
— 
i « 
| v 
| Oo 
| om) 
=) 
<= 
- 
ww 
ww” 
ive) 
[—) 
— 
om vw 
ob w 
wu w 
a 
ke 
o 
” 
wn” 
(ve) 
«x 
oa 
a 
< 
a 
Zz 
aa 
x 
ra 
o 
a 
ive) 
_) 


7.) 
~ ” 
S 3 
= — 
vw = 
= oa 
a 
2 _ = 
a oOo ” - 
mw -_ [vey 
—w -_ 4 - & 
‘2a é vw - wow 
a “ af w <_-_— w 
<u ”n _ z oa ” ow Ww 
>uw _ So es w t 7 
” w = a = »” @ 
qe ~ oo ”“" ec ae ew ~ w Oo 
or v =z ww w Vune —- a « 
wn ” -—- >a - « SF Vr no Vw 
Mo an w ec KO + WW anoet -_ > = = 
mw “ a a K—wwooao 72> eZ ” a 
“7 2 oOo [4 a M@vdw a ie a) 
NO a Ze wm vw we - Youn @ = -— -—- = 
mar wu oa We ” —2ecer Fe == = . 
“- wa “Ww wo a _ Ow -—-Zweoor-- wo w 
om Zw -” ow . VvZOrun ZwOderw ow ”" 
on «za va - ~ w M”Oraz wae aadkw ww -_ 
za we ww era a << pf ta pay “wo Wms 
wv ~OoO- w za> ” on -oac e>-Oacy i MVUI= 
coco a 12 KW = vw Ooevevdc sy VuUdawnw ww 
oon "ro act ve Vv mn wwowo vo WW WY <£H4rZ2=z 
am , z ” ow —V3w ” OrF-uwuwewse «or 
es o.u0a @€ awe 2 a et =) Zi coowuere-0O = YEO 
ea me es ” =2 SO So me [a2 2+-O @ wee | 
oee ava e-2aew = 2 ao oO O253>35 2 "20 = tvuw 
—wn ew f£O°O c¢& - uw aw mat eet + OrF~w ww 
i) exw wets -& UR "va = ee VOCS ZZ Yew 
@mowr VCww Ye ODP wk» a - eee S£eojOorag-Ttew ie 
ce IO B2vEtszv “az o=z Oo ee ae wQAvuworZwau 
w “—wo> ‘23 wo ” wWwOrws Seuro- <« 
oa ~<a YQ@OoOw Aww s- wre ANN EM Ju DY a Bru + 
Ow Ot durzt ” ” <a ” Mie q@oai<ct Le | 
wre -Ow &—- e£anwrt B aE wrwavwr-a aaanw af 
Oaxw nr oav4 oO 2: evk weownwa wot we . 
25> oa O28 «2a 3 uw Oo OWMwua MKNOWWr ZVODY Lan! 
ony weet Ze eZ wu Ootzotiw Jsdutriuwticze Ce 
wiv Ze OA o we <3<4-OQ0OOwz~e-aeucerew uw 
me ~uwruw 2a uw OF we = 34 
Zw — Ovo HZ ae yn wre o 
wrt DO << <r4>D> aa - 
OOF OFa-*t Ywgm@ « se WM ow ws 
w2z ce wwe fc - ” O42 bas 
anz na <twar w = wit>o > 
On wetwd- wk & wu st 
- ws =z w2ze wee =< HM u “ nu “ “ me oe 
2 aan Fue w 4 aa xz@ 
oO _ aww we ” oo _ Lv 
— wZ Vweka o->r- ws 2Z to o 
- &£—o 23040 @ao vv uu ww oe ad 
a 6t tft = yw WwW Zz AA > ton - J 
“ “aw «nw inten ae + 4 <x N at 
Qe Wet ee eeww daiew 7D ZZ zw tal ve 
2 2 @ z zz 3 SO AL at 0 ww” 
” Oo = OFZzee w w wow “no - - - a «J 
we erw WMO oO ” = ” ” we we =x& ‘<« 
eo Fre ——uset B w - =z i - < —+ «= 
eC ts wrFO- fe oo = @& mw =x -—o = Co w 
4 wx as tS 2a —- — oa »~ vw a 4 <= ww a 
<x< “8@w O<4wZzaQ w Cl , vw no 4 to +4 - =< <« x beamed 
oO sor Otinw- <« — aa on cu 2 - - ~ 
-_ a Zvrarae i< “ at 
- « * 3S Veo w (= w > w > s 
ve OF wMYdwo « 4 <_ee —_ 
Zz oacw - “nw ww w w <= —- <« ax 
72> @Onr Feauiws = = = <«7->« ws 
+ &»— Aun &-OAkt - =z ‘aos ® - 
a (i- we of coe 
al el al el el el aE el a ee ee tt et nt Pr rr rere —+ «= a - 9 w 


SD DRI ee DODO OO DOS OOO LOE ER BEES ESBS ene Trae 


DOODLE DODDDDDDDDOAOPPOAAABOCOCC COCO COCO So III 
SOSCOCOCOOOOSOOOSSSSSSSSSSSSSSSSSSSS8] 6 FE KN 
COOOSOOCOOSOSSOSSSOSSSSSSSSSSSSSSSSSSSOSOSOSOSOSOSOOSCSOOSSOSSOOSSSSOSSO 


< eaicneg 
000 


OORPLP-PPPP-PP-R. DDD DDDWDADDDOOAOOAOAOO COCSCCSOCSCO eK KKK KK KK KK NINNN 


LLCO CLL LOLOL EC OE Te 


LNK_ 
v04= 


PP ee ee ee PS FS FS FPS FS SSS HS ES HS FS Oe HR ES HS OFS Oe FS FER 6S OS FS FE HE HS FREE FETS FEES FEES HS FSFE FS FO SH SE SESE *S FE *S Sa *S tere *e ee 


EXTERNAL ROUTINE 
LIBSINSERT_TREE, 
L1BSOOKUP® TREE, 


LOOKUP/INSERT IN BINARY TREE 
LOOKUP IN BINARY TREE 


NKSALLOBLR; ! DYNAMIC MEMORY ALLOCATOR 
EXTERNAL 
LNKS$GW -NMODULES i WORD, ! NUMBER OF MODULES 
tNKSEL “CTLMSK : BLOCKE gyTed. 
LNKSGL~ “fhe : VECT ort ' CLUSTER DESCRIPTOR LIST mene 
LNKS$GL~CURCLU ' CURRENT CLUSTER DESCRIPT 


EXTERNAL LITERAL 
LIBS$_NORMAL ; 


ee ee ee ee eee 
SOOOCCOOOCOOOCOoOoOoOO 
Dwele PoP oP oe? at oe et et et et en 
M—COONAVIFS WOO 
kt 


NORMAL RETURN FROM LIBSINSERT_TREE 


LNK_PSCTSERINS 133033 WAKSI1 Bl isg-32 4_0-7 Pose 4 
v04=000 RHI ett ae Cotta Cee taT eC PE 9° 023 
PSCSC_ALLOBLK : BYTLIT; | NUMBER OF PAGES TO PREALLOCATE 


D 10 
LNK_PSCTSERINS 16=Sep-1984 00:32:33 AX-11 Bliss-32 V4.0-74 Page 5 
v04=000 13-8 08- 1 3be 00:38:38 LINKER. SRCJLNKPSCTBL.B32;1 9° 03) 
; 141 ; GLOBAL ROUTINE LNKSCOMPARE _PSCNOD (PSECTNAME, CURRENTNODE) = 
: 128 5 1! LOCAL ROUTINE TO COMPARE PSECT NAME WITH CURRENT NODE. CALLED BY 
> 144 6 1 | LIBSINSERT TREE. THIS ROUTINE DIFFERES FROM COMPARE _PSECTS IN THAT 
; 145 0 i CURRENTNODE IS A POINTER TO A NODE WHICH POINTS TO A”PSECT DESCRIPTOR. 
: 129 § 3g BEGIN 
: 148 0260 
> 149 0261 2 MAP 
: 150 0 ¢ PSECTNAME : REF VECTORC,BYTE) 
: 131 0 63 CURRENTNODE : REF BLOCK(,BYTEd; 
: 188 0 65 2 LOCAL 
; 134 6 66 THISPSECT : REF BLOCKC, BYTE); 
: 156 0268 2 THISPSECT = ,CURRENTNODECNODESL PTR]; ! PICK UP POINTER TO PSECT DESCRIPTOR 
> 157 0269 2 RETURN CHSCOMPARE(.PSECTNAMELO) PSEC TNAMEL1) 
: 138 0 20 . THISPSECTCPSC$8_NAMLNGJ, THISPSECTCPSCS$T_NAMEJ) 
: 160 0272 1 END; 
.TITLE LNK_PSCTSERINS 
-IDENT \V0%-000\ 
.PSECT $GLOBAL$,NOEXE,2 
00000 LNKS$GL_PSCALLOC:: 
‘BLKB 8 
.EXTRN PSCSC_ALLOBLK, LIBSINSERT_TREE 
SEXTRN LIBSLOOKUP_TREE 
-EXTRN LNKSALLOBLR, LNKSGW_NMODULES 
TEXTRN LNKS$GL_CTLMSK, LNKSGL_CLULST 
-EXTRN LNKSGL-CURCLU, LIBS_NORMAL 
.PSECT $CODE$,NOWRT,2 
001¢ 000 .ENTRY LNKSCOMPARE_PSCNOD, Save R2,R3,R4 ; 0255 
50 08 aC 00 0000 MOVL | CURRENTNODE, R : 0268 
0 A AO D 6 MOVL 10(RO), THISPSECT ; 
: 4 A A MOVL PSECTNANE, R2 : 0269 
62 9A MOVZBL (R2), R3 : 
1 2D Ad 9A 0001 MOVZBL 4S5(THISPSECT), R1 : 0270 
4 : p0 1 VL. #1, RG ; 
51 00 01 A2 ot D CMPCS R3. 1(R2), #0, RI, 46(THISPSECT) 
4 1A 000 BGTRU 1$ : 
7 Gf 98 donee | Seu! ; 
be 80 ; RET : : 0272 


; Routine Size: 41 bytes, Routine Base: S$CODE$ + 0000 


10 
LNK_PSCTSERINS 1b-3¢ =1984 00:32:33 -VAX11 BLiss-32 v4.0-74 bp 
yu=000 eats Pk ed Ta we TS tT Te age 43 


; Routine Size: 37 bytes, Routine Base: S$CODES + 0029 


: 187 0298 

: 188 99 2 ROUTINE ALLOC_PSECT (PSECTNAME,RETADR) = 

; 189 9 BEGIN 

: 191 ; ' LOCAL ROUTINE TO ALLOCATE PSECT DESCRIPTOR. CALLED BY LIBSINSERT_NODE 
: 198 MAP 

: 194 5 PSECTNAME : REF VECTOR(,BYTE); 

: 196 LOCAL 


: 162 73 1 GLOBAL ROUTINE LNKSFNDPSCNAM(PSCTNAME,GPSBITS,SCOPE,PSCTDESC) = 
ig Fg fee 
>: 165 i: i FIND P=SECTION BY NAME. PSCTNAME IS THE ADDRESS OF THE ASCIC 
; 166 7 i STRING P=SECTION NAME. PSCTDESC IS THE PLACE TO PUT THE 
: 16 £8 ' FOUND OR ALLOCATED DESCRIPTOR. IF SCOPE IS NON ZERO, ALL CLUSTERS 
> 168 027 i ARE SEARCHED. IF PSECT IS NOT FOUND, IT IS ENTERED IN CURRENT CLUSTER. 
; 169 6 eT | GPSBITS ARE THE PSECT ATTRIBUTES FROM THE PSECT DEFINITION IN THE GSD. 
: 171 0 
; Ve 0 i ROUTINE COMPARE _PSECTS (PSECTNAME, CURRENTNODE) = 
; 478 8 5 i LOCAL ROUTINE TO COMPARE PSECT NAME WITH CURRENT DESCRIPTOR. CALLED BY 
> 175 0 86 i LIBSINSERT_TREE 
: 176 028 ! 
: 177 0388 BEGIN 
: 178 0289 
: 179 9290 P 
: 180 0291 PSECTNAME : REF VECTORC,BYTE) 
; 181 09¢ CURRENTNODE : REF BLOCKC,BYTEd; 
: 183 oS87 RETURN CHSCOMPARE (.PSECTNAME(O) PSECTNAMEC1} 
: 184 0295 . CURRENTNODE LPSC$B_NAMLNGJ , CURRENTNODECPSC$T_NAME J) 
: «6186 0297 2 END; 
001C 00000 COMPARE_PSECTS: 
«WORD Save R2,R3,R4 : 0283 
52 04 AC dO 00002 MOVL PSECTN E, R + 0294 
5 62 9A 00006 MOVZBL (Re), R ; 
50 08 AC DO 00009 MOVL CURRENTNODE, RO : 0295 
51 2D AO 9A 0000D MOVZBL 45(RO), R1 : 
54 01 0 00011 OVL #1, R4 ; 
51 00 01 A2 3 2D 00014 CMPCS R3, 1(R2), #0, R1, 46(RO) : 
2E Ad OO1A : 
1A 0001C BGTRU 1$ ; 
54 1 09 O01 SBWC OO, RG : 
50 4 00 08 1$ MOVL  R4, RO : 

4 00024 RET : 0297 
| 
| 
} 
| 


F 10 
LNK_PSCTSERINS 16-Sep-1984 00:32:33  VAX-11 Bliss-32 v4.0-74 p 
WOu=000 eee Pak ed pr a cE et CT _ 
BLOCKSIZE; 


BLOCKSIZE = PSCSC Sh et* Cec tMane co); ! COMPUTE SIZE OF BLOCK 
Ti esiece ince eee LEQU .BLOCKSIZE IF NO ROOM IN THIS PREALLOCATED BLOCK 


THEN ALLOCATE ANOTHER ONE 
LNKSALLOBLK (PSCSE ALLOBLK®512 -LNKSGL PSCALLOCC1)); 
J = PSCSC_ALLOBLK*5T2; 


: % 

1 

1 

1 4 

0315 4 

0314 4 LNKSGL_PSCALLOC 
8 1? END; 

0 i$ eRETADR = .LNKS$GL_PSCALLOC(1); 
a 

q 

ny 

8 i ec 


SSSEScssZs 


NIOSR Ue ARMS OMmn~n 


yh ae et ADDRESS 
UPDATE SIZE AND ADDRESS IN PREALLOCATED BLOCK 


CHSFILL(O,PSCSC ; 2E, .LNK$GL_PSCALLOC(1)); 
cf = ,LNK$GL-PSCALLOCLO) = .BLOCKSIZE 
C£1} = .LNKSGL~PSCALLOCL1] + .BLOCKSIZE 


Se Se ee Oe Oe Ge 8S Se Se ee ee Ge FH Shee 
MPOPORONINPEPoPNoTnononn 


RETURN TRUE 
END; 


Save R2,R3,R4,R5,R6,R7 


57 00000000" EF 9€ 00002 MOVAB LNKS$GL_PSCALLOC+4, R7 : 

56 04 BC 9A 00009 MOVZBL @PSECTRAME, BLOCKSIZE ; 

56 Hs CO 0000 ADDL2 #46, BLOCKS1Z : 

56 FC OA? CO 99010 CMPL — LNK$GL_PSCALLOC, BLOCKSIZE ; 

17 1A 00014 BGTRU _1$ : 

57 DD 00016 PUSHL 7 : 

00000000* 8F DD 0001 PUSHL #<PSC$C_ALLOBLK*512> ; 

000000006 00 02 FB OO01E CALLS #2, LNKSALLOBLK : 
FC A? 00000000" 8F D0 000 MOVL #<PSCS$C_ALLOBLK*512>, LNKSGL_PSCALLOC ; 

08 BC 67 DO 00020 1$: MOVL LNKSGL_PSCALLOC+4, @RETADR ; 

2e 00 6E ™ 09 2c 300 1 MOVCS #0, (SP), #0, #46, @LNKSGL_PSCALLOC+4 ; 
FC OAT 1 C2 00 8 SUBL2 BLOCKSIZE, LNKS$GL_PSCALLOC 3 

67 56 OC b005¢ ADDL2  BLOCKSIZE, LNKSGL~PSCALLOC+4 ; 

50 01 DO 0003F MOVL #1, RO ; 

04 00042 RET ; 


; Routine Size: 67 bytes, Routine Base: S$CODES + 004E 
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> 213 4 
; $i 03 5 2 ROUTINE ALLOC_NODE (PSECTNAME,RETADR,PSECTDESC) = 

; 15 03 6 BEGIN 

: 13 0 g i LOCAL ROUTINE TO ALLOCATE A NODE WHICH WILL POINT TO A PSECT 

: 218 i DESCRIPTOR 

Be 8 aw 

; $f : PSECTNAME : REF VECTORC,BYTE): 

; 38 LOCAL 

3 4 5 BLOCKADDR : REF BLOCKL,BYTE): 

; $2 § IF .LNKSGL_PSCALLOCLO) LEQU NODESC_LONG ! JF NOT ROOM IN CURRENT PREALLOCATED BLOCK 


UWE PECTSERINS ifdeo-198e 00:52:35 


3 7 ; 4 THEN BEGIN ' 
: § 4 LNK ALLOBLK (PSCSC A LLOB sc}? 2 -LNKSGL PSCALLOC[1)); 
; 4 r EIR SEL PSCALLO J = T2; 
: 231 4 
: ; rk BLOCKADDR = .LNKSGL_PSCALLOC(1); ' 
; 44 BLOCKADDR: i 
3 234 45 BLOCKADDACHODES PTR] = PSECTDESC: 
3 5 6 K$GL_PSCA HO) .LNKS$GL_PSCALLOC 9} ¢ NODESC LONG; : 
; § af LNKSGL~ ~peeactocet = *ENKSGL ~pSEALLOE 1 NODE$C_LONG; 
; 38 9 49 RETURN TRUE 
3 50 END; 
0004 00000 ALES OE 
52 00000000" EF 9E 00002 MOVAB 
OE 6¢ Di 00009 CMPL 
1 1A 0000C BGTRU 
04 A2 OF 4 PUSHAB 
00000000* 8F DD 0001 PUSHL 
000000006 0 2 FR 0017 CALLS 
g 00000000« F OD Boose MOVL 
04 Ag DO 00025 1$: MOVL 
08 BC 50 DO 00029 MOVL 
OA AO 0c AC 00 00020 MOVL 
6¢ OE ce 00 ¢ SUBL 
04 =A OE CO 000 ADDL 
50 01 00 00039 MOVL 
04 00035C RET 
; Routine Size: 61 bytes, Routine Base: S$CODE$S + 0091 
240 035 
241 035 ‘ 
3 03 : MAIN BODY OF LNKSFNDPSCNAM 
244 035 MAP 
45 032 PSCTNAME : REF VECTORC,BYTE); 
4 2 LOCAL 
5 


OUND, 
NDESC : REF BLOCK BYTE, 
PDESC : REF BLOCKC BYTE 

CLUSTER : REF BLOCK "BvTED: 


iF .SCOPE NEQ 0 
THEN CLUSTER = LNK$GL_CLULSTCOJ 
ELSE CLUSTER = LNKS$GL~CURCLU; 
WHILE (CLUSTER = .CLUSTERCCLUSL_NXTCLUJ) NEQ 0 


IF .CLUSTER EQL .LNKSGL_CURCLU 


PPO OONOUS WN 
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THEN ALLOCATE ANOTHER BLOCK 


GET ADDRESS OF NEW BLOCK 

RETURN ADDRESS TO CALLER 

POINT NODE TO PSECT DESCRIPTOR 

UPDATE POINTER AND COUNTER FOR PREALLOCATED BLOCK 


Save R2 3; 0325 
iNKSGL _PSCALLOC, R2 : 
LNKSGL PSCALLOC, #14 : 0337 
roses PSCALLOC+4 : 0339 
a<P i Ct ALL OBL Ks512> 3 
sebst ec ALLOBLK*512>, LNKS$GL_PSCALLOC : 0 9 
LNKSGL PSCALLOC +4 BLOCKADDR : 034 
BLOCKADDR, RETAD + 0344 
PSECTDES TO(BL OcKADDR) + 0345 
#14, pase. CALLOC F 0346 
#14, tNKSGL~ ~peEALLOE +4 : 034 
#1, RO : 0349 
; 0350 


FOR ASCIC STRING 


CLUSTER DESCRIPTOR 

IF GLOBAL SEARCH acer 

START AT TOP OF CLUSTER LIST 

IF LOCAL START AT CURRENT CLUSTER 
MOVE ON TO NEXT CLUSTER IN LIST 


IF THIS IS CURRENT CLUSTER 


LINK _PSCTSERINS -1984 00:32:33 AX-11 Bliss-32 V4.0-74 Page 9 
y4=000 =138% 90:38:82 LINKER. SRCJLNKPSCTBL.B32;1 al 
: 259 70 3 AND .SCOPE EQL 0 ! AND PSECT IS NON=GLOBAL 

; 260 71 4 THEN BEGIN 

: 261 i 4 FOUND = LIBSINSERT_TREE(CLUSTERCCLUSL_LPSLSTJ,.PSCTNAME, ZREF (0), 

; 6 3 4 COMPARE _PSECTS,ALCOC_PSECT,PDESC); 

; 4 t3 4 i FILL IN THE ALLOCATED NODE 

: 266 6 3 4 if .FOUND EQL LIB$_NORMAL 

> 267 78 THEN BEGIN 

: 268 0379 CHSMOVE ( .PSCTNAMECOJ+1 PSCTNAMELO] .PDESC PSC$B_NAMLNG]); ! COPY IN THE NAME 

> 269 0380 PDESCCPSCSL_LSTMPC = PDESCCPSCSL_MPCLSTJ; !" INIT LAST ENTRY POINTER 

: 270 0 4) PDESC PSCSL~CLUDSt] = .LNK$GL_CURCLU; i SET CLUSTER DESCRIPTOR ADDRESS 

: 271 : PDESCEPSCSL_OMDNUM) = ,LNKSGW-NMODULES; i SET DEFINER MODULE NUMBER 

: 27 0 8 PDESCLPSC$B-ALIGN] = <1; i FLAG NO ALIGNMENT SET 

: 27 0 i IF (.GPSBITS AND GPS$M_GBL) NEQ ? i IF THIS IS A GLOBAL PSECT 

> 27 85 THEN LIBSINSERT_ TREE (CLUSTERCCLUSL GPSLSTJ, i “THEN INSERT INTO GLOBAL PSECT LIS 
> 275 0386 .PSCTNAME , SREF CO), 

: 276 038 LNKSCOMPARE_PSCNOD,ALLOC_NODE ,NDESC,.PDESC); 

> 277 0388 4 END; 

: 278 0389 4 .PSCTDESC = .PDESC; ! RETURN ADDRESS TO CALLER 

; gi9 0390 4 RETURN FOUND 

: 281 0392 3 ELSE IF LIBSLOOKUP_TREE(CLUSTERCCLUSL_GPSLSTJ,.PSCTNAME, ! GLOBAL PSECT, SO LOOK IN GLOBAL PS 
; o8e 039 LNKS COMPARE _PSCNOD PDESC 

: 28 0394 4 AND NOT (PDESC = .PDESCCNODESL_PTRJ: ! GET PSECT DESCRIPTOR ADDRESS 

> 284 0395 4 .PDESCCPSC$V_DELETED]) i TEST IF PSEC, HAS BEEN DELETED 

; 285 0396 4 THEN BEGIN 

: 286 0397 4 -PSCTDESC = .PDESC; ! FOUND, SO RETURN TO CALLER 

; 387 0398 4 RETURN TRUE; 

; 288 0399 3 END; 

Be Rah gto 

: 291 040¢ i PSECT WAS NOT FOUND IN ANY CLUSTER, AND IF WE GOT HERE IT MUST HAVE BEEN A GLOBAL 

; 39¢ 0405 i PSECT. CALL LNKSFNDPSCNAM AGAIN WITH LOCAL SCOPE TO ENTER IN CURRENT CLUSTER. 

: 294 0405 : RETURN LNKSFNDPSCNAM (.PSCTNAME, .GPSBITS, 0, .PSCTDESC) ! CALL WITH LOCAL SCOPE TO ENTER IN 
: 296 0407 1 END; ! OF LNKSFNDPSCNAM 


OFFC 00000 ENTRY LNKSENDPSCNAM, Save R2,R3,R4,R5,R6,R7,RB,~ ; 0273 
5B 000000906 00 9 9002 MOVAB LNKS$GL CURCLU, R11 ; 
SA FF2 cr 9E 000 MOV LNKSCOMPARE_PSCNOD, R10 ; 
5E C OF SUBL2 #12, SP : 
0c AC ; Mi Ist OPE ; 0363 
57 000000006 09 H 16 MOVAB NKSGL_CLULST, CLUSTER ; 0364 
7 68 9 1F 1$: MOVAB LNK$GL CURCLU, CLUSTER > 0365 
: 04 aC D 3: MOVL PSCTNAME, R : 0 : 
6 $: MOVL (CLUSTERS, CLUSTER ; 
3 i 9 BNEO 4$ ; 


LNK_PSCTSERINS 
v04=000 


68 


00 
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CA 


Routine Base: 


F 


WIMOWT O—MIS9 0997.00 0000090 09 
AO —-MAOMWOS PROD OLA MNOUTO 


oO 
SLSSNSs SoS oo 


occocovcoVvcomoco own 
om 


\~,~F oF 


SCODES + OOCE 


CMPL 


c0-1984 99: i: 1H AX-11 Bliss-32 V4 


LINKER. SRC LiePSCTOL B82; 1 
CLUSTER, LNK$GL_CURCLU 
SCOPE 


, (CLUSTER 
#6, LISSINSERT. TREE 
RO, FOUND 
EQUND . #LIBS_NORMAL 
(R8), RO 


R6 
(RB), 45(R6) 
16(R6) 
LNKS$GL-CURCLU, 36(R6) 
LNKSGW N NMODULES, 40(R6) 
#4. GPSBITS, 5$ 


D 
#6, 1 7$ 
PDESC SPStTDESC 
wi, RO 

PSCTDESC 

-(S§P) 

GPSBITS 

#4, LNKSFNDPSCNAM 


Pee Se Se Se Se Se Ge Ge Ge Ge Se Se Ge Se Ge Se Ge Se Be Se Se Ge Ge Be Ge Se Se Se Ge Se Se Se Ge Ge Be Ge Ge Se Be Be Ge Se Se Se Se Ge Be Se Se Be Be Be Be Se 
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14-Sep-1 LINKER. $rei LNKPSCTBL.B (4) 


Sz 


K 


«Vcd 


WWNAAAA AAW 


WWW NII NIIP NUNN oe COOCOCO 
SWGSARUN-“SOWNAUNE ON OOD APU IODR Ue ARGO Oe 


DOOOOOGOOCOVOOOOOSOOSOSOOOOoOOooO 


Dk tel ek ak ek tee ek ee ek ee ee ae ee ee ee ee ee ee 


ooo 
PRES 
WAIAIAI AAAI NI OPOPOROPPORO PU 3 OO 


04 
0 


NOUS WN $C OONAOUE WN (COONS W000 


sarah "calan vchan cere “eat IE eacmeamieant-diede © tment «aoe eit nema 
m 


IF .PREVENTRY EQL 0 

OR .MASK NEQ .PREVMASK 

OR .MATCH NEQ .PREVMATCH 

THEN BEGIN 

Aa aly = -LNKSGL_ CURCLUCC 
PREVMASK = 

hale S "MATCH; 


IF (CURENTRY = .PREVENTRY) EQL 0 
THEN RETUR 
PREVENTRY : aj PREVENTRYCPSCSL _LEFT; 
IF - PREVENT Y NEQ 
THEN LNKSENDPSCNSK MASK, .MATCH, 
PREVENTRY = .CURENTRY 
IF (. CURENTRYE Psu 4 LAGS] AND .PREV 
AND NTRYCPSCSV_DELETED] 
THEN (, actions ROUTINE) (> PORENTRY 
PREVENTRY : ay URERT TRYCPSCSL_RIGHTI; 
IF .PREVENTRY NEQ 0 
THEN UNKSENDPSCASK(. MASK, MATCH, 
PREVENTRY = .CURENT 
RETURN TRUE; 


s$-32 V4.0 


i Seo 93; a6: 33 LINKER? CILNKPSCTBL. 3 231 


GLOBAL ROUTINE LNKSFNDPSCMSK(MASK,MATCH,ACTION_ROUTINE) = 
1 
i FIND NEXT P-SECTION (IN CURRENT CLUSTER) WHOSE ATTRIBUTES 
i HAVE A PARTICULAR VALUE (MATCH) AFTER EXTRACTING 
i WITH MASK. 
OWN 
PREVENTRY REF BLOCKL, BYTE), ! PREVIOUS ENTRY 
PREVMASK, i MASK ON LAST CALL 
; PREVMATCH; i MATCH ON LAST CALL 
MAP 
: LNKSGL_CURCLU : REF BLOCKC,BYTE); ! CHANGE ATTRIBUTES 
LOCAL 
CURENTRY : REF BLOCKC,BYTE); ! CURRENT ENTRY BEING EXAMINED 


IF FIRST TIME IN 
OR A_NEW SEARCH 


PATTERN 
START AT THE BEGINNING OF THE CORRECT LIST 


! RESET MASK AND 
MATCH VALUES. 


LUSL_LPSLSTJ; 


IF NO PSECTS AT ALL 
THEN ALL DONE 

PROCESS LEFT SUBTREE 

IF THERE IS A LEFT SUBTREE 


-ACTION_ROUTINE); 
! PROCESS CURRENT NODE 
MASK) EQL .PREVMATCH ! IF THIS eat ti IS _CORECT 
! AND IT HAS NOT BEEN DELETED 
); ! CALL_R NE_ FOR CURRENT ENTRY 
! PROCES EE 
Ss 
R 


GHT SUBTR 
»ACTION_ROUTINE);  ! PROCE 


OUT! 
S RI 
S$ RIG ~ SUBTREE IF PRESENT 
! RESTORE ENTR 


.PSECT S$OWNS,NOEXE,2 
00000 PREVENTRY: 
00004 PREVMASK: 


«BLK 
00008 PREVMATCH: 
-BLK 4 


-PSECT SCODES,NOWRT,2 
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142000 ~8ep-1984 99: 6; % LINKER. SRCJLNKPSCT ork, 1 ” 
001¢ .ENTRY LNKSFNDPSCMSK, Save R2,R3,R4 ; 
54 FB AF 9E MOVAB LNKSFNDPSCMSK, R4 F 
3 00000000' EF MOVAB PREVENTRY, RS ; 
63 D D TSTL § PREVENTRY : 
. F BEQL ~=s«s1S : 
046 A3 04 aC pj 1 cmPL MASK, PREVMASK : 
08 a3 08 A p 18 CHPL BATCH, PREVMATCH : 
50 000000006 00 D HP 1$ MOVL Nip CURCLU, RO ; 
t 10 A p 6 MOVL PREVENTRY : 
04 =A 0 ag D A mova REVM : 
52 63 00 6 f 2$ MOVL Ie ae CURENTRY : 
73 93 9 00 MOVL PREVENTRY, PREVENTRY : 
OA 13 00037 BEQL F 
at a : 
64 0 FB 0040 CALLS #3 penne: : 
63 pO 0043 3$: MOVL ioe ednetn PREVENTRY : 
50 OA A ¢ 00046 MOVZWL 10(CUR ; 
51 04 A3 D2 000A MCOM ; 
50 51 CA 0004E BICL ; 
08 A3 30 D} 90051 CMPL RO: PREVMATCH : 
06 0B A2 06 6 0057 BBS #6 11 (CURENTRY) 4$ ; 
DD 0005¢ PUSHL cy URENT ; 
oc 8B 07 FB O05 CALLS SACTION. ROUTINE ; 
6 04 A2 00 9006 4$ MOVL SCeURENTOVOT PREVENTRY F 
OA 13 00066 BEQL ; 
7E 08 Ac 7D 00068 MOVG MATCH, -(SP) ; 
04 aC DD 0006C PUSHL MASK : 
64 Q FB 0006F CALLS #3, LNKSFNDPSCMSK : 
63 2 »D 0007¢ 5$: MOVL §CURENTRY, PREVENTRY ; 
50 01 0 00075 6$: MOVL #1, RO F 
04 00078 RET ; 
; Routine Size: 121 bytes, Routine Base: SCODE$S + 01BD 
: 340 0450 6 END ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: $GLOBALS 8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
> S$CODES 5¢ NOVEC,NOWRT, RD, EXE.NOSHR, LCL. REL. EON-NOPLE ALI EN() 
3 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


yoez000 NS if: gep-1964 93:26:32 Men SaeSinerscior 882.1 enol 


Library Statistics 


Sai kt oe, Beak §: 2 ee ee = Symbols -<------ Pages Processing 
: File Total — Loaded Percent Mapped Time 
: $DUA28:(SYSL1BIS STAR .L32; 977 581 :01. 
ee Sitti Heh ies BAS i 3251 38 1, : 5 $8:00:5 
3 COMMAND QUALIFIERS 
g BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:LNKPSCTBL/OBJ=OBJ$:LNKPSCTBL MSRC$:LNKPSCTBL/UPDATE=(ENH$:LNKPSCTBL) 
; Size: 566 code + 20 data bytes 
Run Time: 00:11. g 
Elapsed Time: 00: 52.7 
Lines/CPU Min 2261 


Poccebas BL Be 14798 
pomeey Used: 97 pages 
Compilation Complete 
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